10 REM JOYSTICK POINTER - KENNY LAWSON
20 FORX=680TO695:READA:POKEX,A:CT=CT+A:NEXT
30 FORX=40960TO41311:READA:POKEX,A:CT=CT+A:NEXT
40 IFCT<>37849THENPRINT"[147]ERROR IN DATA STATEMENTS!":END
50 PRINTCHR$(147)"RUN JOYSTICK PRG#2 TO SEE EMULATOR."
60 DATA 165,1,41,254,133,1,32,0,160,165,1,9,1,133,1,96,162,0,189,32,161
70 DATA 157,192,2,232,224,64,208,245,165,170,141,0,170,169,11,141,248,7
80 DATA 169,1,141,21,208,169,0,141,16,208,141,27,208,141,31,208,141,39
90 DATA 208,169,24,141,0,208,169,50,141,1,208,173,0,220,133,170,41,16
100 DATA 208,6,173,0,170,76,19,161,165,170,41,15,133,170,169,15,56,229
110 DATA 170,240,228,201,1,208,6,32,235,160,76,1,161,201,2,208,6,32,246
120 DATA 160,76,1,161,201,4,208,6,32,175,160,76,1,161,201,8,208,6,32,205
130 DATA 160,76,1,161,201,5,208,9,32,235,160,32,175,160,76,1,161,201,9
140 DATA 208,9,32,235,160,32,205,160,76,1,161,201,6,208,9,32,246,160,32
150 DATA 175,160,76,1,161,201,10,208,9,32,246,160,32,205,160,76,1,161,76
160 DATA 52,160,173,16,208,240,14,173,0,208,208,16,206,16,208,169,255
170 DATA 141,0,208,96,173,0,208,201,24,240,3,206,0,208,96,173,16,208,240
180 DATA 11,173,0,208,201,82,240,3,238,0,208,96,173,0,208,201,255,208
190 DATA 245,238,0,208,238,16,208,96,173,1,208,201,50,240,3,206,1,208,96
200 DATA 173,1,208,201,245,240,3,238,1,208,96,162,16,160,100,136,208,253
210 DATA 202,208,248,169,0,141,31,208,76,52,160,174,31,208,240,243,133
220 DATA 170,169,0,141,21,208,96,240,0,0,192,0,0,160,0,0,144,0,0,8,0,0,0
230 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
240 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0